O6888(CUT 0-180 DEG ID TAPER)
(ABSOLUTE SURFACING MACRO)
(UNPROVEN)

(FORMAT G65/G66 AQDTSRZEF)
(A = #1 - INCLUDED ANGLE OF PART FROM BOTTOM)
(Q = #17 - STEPOVER IN Z/ CUSP HEIGHT) 
(D = #7 - TOOL DIAMETER)
(T = #20 - TOOL RADIUS/ BALL OR BULL)
(S = #19 - PART ID/ TOP)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF TAPER IN Z)
(F = #9 - FEEDRATE)
(***********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]GOTO1000
#103=#5001
#105=#5002
#113=#105
#115=[[#19/2]-[#7/2]]-.1
#115=#105+#115
#155=0
IF[#7EQ[#20*2]]GOTO10
#105=#105-[[#7/2]+#20]
#155=#155-[[#7/2]+#20]
N10#105=#105+[#19/2]
#155=#155+[#19/2]
#125=90.+[#1/2]
#105=#105-[#20/TAN[#125/2]]
#155=#155-[#20/TAN[#125/2]]
G0G90X#103Y#115
Z[#26+.1]
G1Z#26F#9
#106=#5003
G41Y#105
WHILE[#101GE0]DO1
IF[#101LT0]GOTO100
#101=#101-1.
G90G02J-#155F[#9]
#105=-[TAN[#1/2]*#102]
#155=#155-[TAN[#1/2]*#102]
G91G1Y#105Z-[#102]F[#9/3]
END1
N100G0G90Z#18
X#103Y#113
M99
N1000#3000= 1( Q VALUE TOO BIG )
